home *** CD-ROM | disk | FTP | other *** search
/ Micom Basic 1995 October / CD [BM9510].bin / basic / f_basic / list2 / list2.bak < prev    next >
Encoding:
Text File  |  1995-08-10  |  1011 b   |  45 lines
  1. #include "f1a0lww3.bi"
  2.  
  3. 'âIâuâWâFâNâgé╠ÆΦï`
  4. var PICTURE1 as object
  5. var PICTURE2 as object
  6. var STAR as object
  7. var STAR_S as object
  8. var HAIKEI as object
  9. BITMAPOBJECT STAR
  10. BITMAPOBJECT STAR_S
  11. BITMAPOBJECT HAIKEI
  12.  
  13. 'âsâNâ`âââtâ@âCâïé╠âRâôâgâìü[âïüEânâôâhâïé≡é╞éΘ
  14. PICTURE1.ATTACH GETDLGITEM("picture1")
  15. PICTURE2.ATTACH GETDLGITEM("picture2")
  16.  
  17. 'èeârâbâgâ}âbâvâIâuâWâFâNâgé╔ârâbâgâ}âbâvâtâ@âCâïé≡ô╟é▌ì₧é▄é╣éΘ
  18. HAIKEI.LOADBITMAPFILE "haikei.bmp"
  19. STAR.LOADBITMAPFILE "star.bmp"
  20. STAR_S.LOADBITMAPFILE "star_s.bmp"
  21.  
  22. 'üÖé≡ô«é⌐é╖
  23. for J=0 to 5
  24.     for I=0 to 200 step 4
  25.         'öwîié╠ò\Ī
  26.         PICTURE1.SETDRAWMODE 13
  27.         PICTURE1.DRAWBITMAP HAIKEI,0,0
  28.         'üÖé╠â}âXâNé≡ò\Ī
  29.         PICTURE1.SETDRAWMODE 9
  30.     PICTURE1.DRAWBITMAP STAR_S,I,I
  31.         'Ä└ì█é╠üÖé≡ò\Ī
  32.     PICTURE1.SETDRAWMODE 15
  33.     PICTURE1.DRAWBITMAP STAR,I,I
  34.     'ò`é⌐éΩé╜ârâbâgâ}âbâvé≡ô]æù(picture1é⌐éτpicture2é╓)
  35.     PICTURE2.BITBLT 0,0,200,200,PICTURE1,0,0
  36.     next
  37. next
  38.  
  39. while 1
  40.     WaitEvent
  41. wend
  42.  
  43. stop
  44. end
  45.